function RE=interweave(record_in)
NB=1;NC=48;s=max(NB/2,1);
for k=0:NC-1
zz(k+1)=(NC/16)*mod(k,16)+floor(k/16);
T_zz(k+1)=s*floor(zz(k+1)/s)+mod(zz(k+1)+NC-floor(16*zz(k+1)/NC),s);
end
for n=1:48
RE(T_zz(n)+1)=record_in(n);
end